Fix regression in vtable-goto-object

* lisp/emacs-lisp/vtable.el (vtable-goto-object): Fix moving to
the object.

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 2c61996637ff4f60c2cb143a14ac462190bc681f..d8577c19762cf39933eaddf764c25bd8223849a3 100644 (file)
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -167,7 +167,7 @@ Return the position of the object if found, and nil if not."
   (let ((start (point)))
     (vtable-beginning-of-table)
     (save-restriction
-      (narrow-to-region (point) (vtable-end-of-table))
+      (narrow-to-region (point) (save-excursion (vtable-end-of-table)))
       (if (text-property-search-forward 'vtable-object object #'eq)
           (progn
             (forward-line -1)